home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / emacs / emacs1857 / bin_d2.zoo / lisp / text-mode.elc < prev    next >
Text File  |  1991-12-02  |  3KB  |  45 lines
  1.  
  2. (defvar text-mode-syntax-table nil "\
  3. Syntax table used while in text mode.")
  4.  
  5. (defvar text-mode-abbrev-table nil "\
  6. Abbrev table used while in text mode.")
  7.  
  8. (define-abbrev-table (quote text-mode-abbrev-table) nil)
  9.  
  10. (if text-mode-syntax-table nil (setq text-mode-syntax-table (make-syntax-table)) (modify-syntax-entry 34 ".   " text-mode-syntax-table) (modify-syntax-entry 92 ".   " text-mode-syntax-table) (modify-syntax-entry 39 "w   " text-mode-syntax-table))
  11.  
  12. (defvar text-mode-map nil "\
  13. ")
  14.  
  15. (if text-mode-map nil (setq text-mode-map (make-sparse-keymap)) (define-key text-mode-map "    " (quote tab-to-tab-stop)) (define-key text-mode-map "s" (quote center-line)) (define-key text-mode-map "S" (quote center-paragraph)))
  16.  
  17. (defun text-mode nil "\
  18. Major mode for editing text intended for humans to read.  Special commands:\\{text-mode-map}
  19. Turning on text-mode calls the value of the variable text-mode-hook,
  20. if that value is non-nil." (interactive) (byte-code "הêו êז✓!êחë①êטë②ê ë③êי!êכל!ç" [text-mode-map mode-name major-mode local-abbrev-table text-mode-abbrev-table text-mode-syntax-table nil kill-all-local-variables use-local-map "Text" text-mode set-syntax-table run-hooks text-mode-hook] 5))
  21.  
  22. (defvar indented-text-mode-map nil)
  23.  
  24. (if indented-text-mode-map nil (setq indented-text-mode-map (make-sparse-keymap)) (define-key indented-text-mode-map "    " (quote indent-relative)) (define-key indented-text-mode-map "s" (quote center-line)) (define-key indented-text-mode-map "S" (quote center-paragraph)))
  25.  
  26. (defun indented-text-mode nil "\
  27. Major mode for editing indented text intended for humans to read.\\{indented-text-mode-map}
  28. Turning on indented-text-mode calls the value of the variable text-mode-hook,
  29. if that value is non-nil." (interactive) (byte-code "IJêח êט✓!êיבIJ\"ê♪ë②êכ !êלד!êמë⑤êט╱!êנë⑥◆êסë⑥✓êעפ!ç" [text-mode-map nil local-abbrev-table text-mode-abbrev-table text-mode-syntax-table indent-line-function indented-text-mode-map mode-name major-mode kill-all-local-variables use-local-map define-abbrev-table set-syntax-table make-local-variable indent-relative-maybe "Indented Text" indented-text-mode run-hooks text-mode-hook] 8))
  30.  
  31. (defun center-paragraph nil "\
  32. Center each line in the paragraph at or after point.
  33. See center-line for more info." (interactive) (byte-code "IJêèא ênåבג!ê`⑧ד êה`✓\"))ç" [end nil forward-paragraph newline 1 backward-paragraph center-region] 6))
  34.  
  35. (defun center-region (from to) "\
  36. Center each line starting in the region.
  37. See center-line for more info." (interactive "r") (byte-code "בê✓    Và⓪    ə✓①
  38. ë⓪)êèîג✓    \"ê✓bêm?à*ד êהו!êé))ç" [from to tem nil narrow-to-region center-line forward-line 1] 5))
  39.  
  40. (defun center-line nil "\
  41. Center the line point is on, within the width specified by `fill-column'.
  42. This means adjusting the indentation to match
  43. the distance between the end of the text and `fill-column'." (interactive) (byte-code "בêèב⑧ג êד êה êד êië⓪êג ê    וז
  44.     ✓#ח\"\\j))ç" [line-length left-margin fill-column nil beginning-of-line delete-horizontal-space end-of-line / - 2] 11))
  45.